home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / spectrum.sfx / hi-res editor (.txt) < prev    next >
Commodore BASIC  |  1992-09-01  |  2KB  |  120 lines
  1. 4 B=0:C=3:UJ=0
  2. 5 POKE53280,0:POKE53281,0
  3. 10 IF A=0THEN A=1:LOAD"KS/L",8,1
  4. 20 BASE=2*4096:POKE53272,PEEK(53272)OR8
  5. 30 POKE53265,PEEK(53265)OR32
  6. 50 FORI=1024TO2023:POKEI,3:NEXT
  7. 55 V=53248
  8. 60 FORE=832TO894:READF:POKEE,F:NEXTE
  9. 70 POKEV+21,1:POKEV+39,1:POKE2040,13
  10. 80 POKEV,24:POKEV+1,50
  11. 100 DATA 252,0,0,248,0,0,240,0,0,248,0,0,220,0,0,142,0,0,7,0,0,3,128,0,1,0,0,0,0
  12. 105 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13. 198 EF=1
  14. 199 X=25:Y=50
  15. 200 JV=PEEK(56320)
  16. 202 IF JV=111 THEN 1800
  17. 204 IF JV=110 THEN 1300
  18. 206 IF JV=109 THEN 1350
  19. 208 IF JV=107 THEN 1400
  20. 210 IF JV=106 THEN 1450
  21. 212 IF JV=105 THEN 1500
  22. 214 IF JV=103 THEN 1550
  23. 216 IF JV=102 THEN 1600
  24. 218 IF JV=101 THEN 1650
  25. 222 IF JV=127 THEN 250
  26. 223 IF JV=126THEN 300
  27. 224 IF JV=125THEN 350
  28. 226 IF JV=123THEN 400
  29. 228 IF JV=122THEN 450
  30. 230 IF JV=121THEN 500
  31. 232 IF JV=119THEN 550
  32. 234 IF JV=118THEN 600
  33. 236 IF JV=117THEN 650
  34. 250 GETP$
  35. 252 IF P$="L" THEN 3000
  36. 254 IF P$="S" THEN 3010
  37. 256 IF P$="[147]" THEN 950
  38. 258 IF P$="C" THEN 1050
  39. 260 IF P$="B" THEN 1000
  40. 262 IF P$="0" THEN LK=0
  41. 264 IF P$="1" THEN LK=1
  42. 266 IF P$="2" THEN LK=2
  43. 268 IF P$="3" THEN LK=3
  44. 270 IF P$="4" THEN LK=4
  45. 272 IF P$="5" THEN LK=5
  46. 274 IF P$="6" THEN LK=6
  47. 276 IF P$="7" THEN LK=7
  48. 278 IF P$="8" THEN LK=8
  49. 280 IF P$="9" THEN LK=9
  50. 282 IF P$="X"THEN 4000
  51. 284 IF P$="E" THENUJ=1
  52. 286 IF P$="D" THENUJ=0
  53. 299 GOTO 200
  54. 300 Y=Y-1:GOTO 800
  55. 350 Y=Y+1:GOTO 800
  56. 400 X=X-1:GOTO 800
  57. 450 X=X-1:Y=Y-1:GOTO 800
  58. 500 X=X-1:Y=Y+1:GOTO 800
  59. 550 X=X+1:GOTO 800
  60. 600 X=X+1:Y=Y-1:GOTO 800
  61. 650 X=X+1:Y=Y+1:GOTO 800
  62. 800 IF Y>250 THEN Y=250
  63. 801 IF Y<50THEN Y=50
  64. 802 POKE V+1,Y
  65. 803 IF X>255 THEN 830
  66. 804 IF X<25 THEN X=25
  67. 805 POKE V+16,0:POKEV,X:GOTO 200
  68. 830 POKEV+16,1:W=X-255:POKEV,W:GOTO 200
  69. 950 FORI=BASETOBASE+7999:POKEI,0:NEXT:GOTO 200
  70. 1000 C=C+1:IFC=16 THEN C=0
  71. 1020 GOTO 1090
  72. 1050 B=B+1:IF B=16 THEN B=0
  73. 1051 IF B=0 THEN L=0
  74. 1052 IF B=1 THEN L=16                        
  75. 1053 IF B=2 THEN L=32
  76. 1054 IF B=3 THEN L=48
  77. 1055 IF B=4 THEN L=64
  78. 1056 IF B=5 THEN L=80
  79. 1057 IF B=6 THEN L=96
  80. 1058 IF B=7 THEN L=112
  81. 1059 IF B=8 THEN L=128
  82. 1060 IF B=9 THEN L=144
  83. 1061 IF B=10THEN L=160
  84. 1062 IF B=11THEN L=176
  85. 1063 IF B=12THEN L=192
  86. 1064 IF B=13THEN L=208
  87. 1065 IF B=14THEN L=224
  88. 1066 IF B=15THEN L=240
  89. 1082 HX=YT
  90. 1300 Y=Y-1:GOTO1800
  91. 1350 Y=Y+1:GOTO1800
  92. 1400 X=X-1:GOTO1800
  93. 1450 X=X-1:Y=Y-1:GOTO1800
  94. 1500 X=X-1:Y=Y+1:GOTO1800
  95. 1550 X=X+1:GOTO1800
  96. 1600 X=X+1:Y=Y-1:GOTO1800
  97. 1650 X=X+1:Y=Y+1:GOTO1800
  98. 1800 AX=X-24:AY=Y-50
  99. 1801 FORTR=AYTO(AY+LK)
  100. 1802 FORYT=AXTO(AX+LK)
  101. 1803 HY=TR:HX=YT
  102. 1821 RO=INT(HY/8):CH=INT(HX/8):LI=HYAND7:BI=7-(HXAND7):BY=BA+RO*320+CH*8+LI
  103. 1822 IFUJ=0 THEN 1830
  104. 1823 POKEBY,PEEK(BY)AND(255-2^BI)
  105. 1825 NEXT:NEXT:GOTO 800
  106. 1830 POKEBY,PEEK(BY)OR2^BI
  107. 1833 NEXT:NEXT:GOTO 800
  108. 3000 POKE 53272,21:POKE53265,155
  109. 3001 PRINT"[147]":SYS49152:PRINT"[147]"
  110. 3002 RUN
  111. 3010 POKE 53272,21:POKE53265,155
  112. 3011 PRINT"[147]":SYS49155:PRINT"[147]"
  113. 3012 RUN
  114. 4000 POKE53272,21:POKE53265,155:POKE198,4
  115. 4001 FOR DL=832TO832+62:POKEDL,0:NEXT
  116. 4002 PRINT"[147]LOAD"CHR$(34)"SPECTRUM V1.0";
  117. 4003 PRINTCHR$(34)",8";
  118. 4004 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  119. 4005 END
  120.